
// MathieBC Noel creator
integer first_number = 2;
integer digits = 4;
integer mil = 1;

setTime(string time) {
    integer len = llStringLength(time);
    integer i;
    for (i = 0; i < digits; i++) {
        if (i < len) {
            integer number = (integer)(llGetSubString(time, len - 1 - i, len - 1 - i));
            llMessageLinked(first_number + i, number, "", "");
        } else {
            llMessageLinked(first_number + i, -1, "", "");
        }
    }
}

default
{
    state_entry()
    {
        llSetStatus(STATUS_PHANTOM | STATUS_BLOCK_GRAB, TRUE);
//        llListen(8877661, "timekeeper", "", "");
        llSetTimerEvent(.2);
        llMessageLinked(LINK_ALL_CHILDREN, -1, "", "");
        llListen(2257,"","","");
    }

    listen(integer ch, string name, key id, string msg)
    {
        if (msg == "mil") mil = 1;
        if (msg == "std") mil = 0;
    }

    timer()
    {
        integer hh;
        integer mm;
        float time = llVecMag(llGetVel())*60*60/1000;
//        float time = llGetTimeOfDay();
         // gmt plus 1 offset 8 hours
       
        string score;
        hh = (integer)time ;
        mm = (integer)time ;
        hh = hh ;
        if (mil == 0 && hh > 12) {
            hh = hh ;
            llWhisper(2258,"PM");
        } else {
            if (mil == 0) {
                if (hh == 0) hh = 12;
                llWhisper(2258,"AM");
            } else {
                llWhisper(2258,"mil");
            }
        }
        score = (string)hh;
       
        if (((integer)time % 2) == 0) {
            llWhisper(2259,"<1,0,0>");
        } else {
            llWhisper(2259,"<0.23,0.01,0.02>");
        }
        setTime(score);
    }
}